===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 04-19-93 (09:15)             Number: 148
From: DAVID COLSTON                Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: File Scramble 2/3              Conf: (35) Quick Basi
---------------------------------------------------------------------------
LOCATE 1, 5
PRINT "Hideit - file scrambler - by Colston & Associates_
  (c)1993"
LOCATE 3, 15
PRINT File$; " Has"; MaxBytes; " Bytes."
FOR I = 1 TO Rounds
    GET #File%, I, BigFile
    FOR J = 1 TO LEN(BigFile)
          MID$(BigFile.K, J, 1) = CHR$(ASC(MID$(BigFile.K, J, 1))_
          XOR DRnd%(B%()))
    NEXT
    PRINT #NewFile%, BigFile.K;
    IF I MOD 4 = 0 THEN
          LOCATE 4, 14
          PRINT I * 256; "Bytes scrambled."
    END IF
NEXT
CLOSE File%
Start = LEN(BigFile) * Rounds + 1
OPEN File$ FOR RANDOM AS File% LEN = LEN(CharFile)
FOR I = Start TO MaxBytes
    GET #File%, I, CharFile
    A$ = CHR$(ASC(CharFile.Char) XOR DRnd%(B%()))
    PRINT #NewFile%, A$;
NEXT
CLOSE
LOCATE 4, 14
PRINT MaxBytes; "Bytes scrambled."
DO
     INPUT "Delete Old File and Rename the new one (Y/N)";_
      KillIt$
     KillIt$ = UCASE$(KillIt$)
LOOP UNTIL KillIt$ = "Y" OR KillIt$ = "N"
IF KillIt$ = "Y" THEN
    Times = INT(MaxBytes / 1000) + 1 'over write the old
                                     'file to really destory_
                                     it!
    OPEN File$ FOR OUTPUT AS File% LEN = 1000
    FOR I = 1 TO Times
        PRINT #File%, SPACE$(1000)
    NEXT
    CLOSE File%
    KILL File$
ELSE
     DO
          INPUT "Enter Newfile Name"; File$
     LOOP UNTIL File$ > ""
END IF
SHELL "REN " + NewFile$ + " " + File$
CLS
SYSTEM


 * JABBER v1.1 * Colston & Associates, Inc. (501) 452-4948


--- WM v2.08/92-0178
 * Origin: Paradox of Arkansas 501-484-0944 (1:3822/1)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20